Clear["Global`*"];
MapaH5="c:\\Users\\gal\\Documents\\DRUGI PROGRAMI\\Wolfram Mathematica\\saška ura\\data iz posnetkov\\";
fps=240;
tzf=5;(*točk levo in desno za fitanje parabole*)
RedGlDef=5;(*default*)
RedGlMax=20;



(* (*za primer*)
	{8,{{16}}},
	{10,{{5}}},
	{15,{{3},{8}}},
	{26,{{4}}}
*)
ZaStran={};(*pogledamo pr kterih grafih je za odstrant ktere točke*)



ImenaH5=FileNames[{"*ekstremi0SIM.h5"},MapaH5,{2}];
ekstremjiji=Import[#,{"Data",1}]&/@ImenaH5;
(ekstremjiji[[#[[1]]]]  =  Delete[ekstremjiji[[#[[1]]]],#[[2]]])&/@ZaStran;

tekstremjiji=ekstremjiji[[;;,;;,1]];
zekstremjiji=ekstremjiji[[;;,;;,2]];
strmine=a/.FindFit[#,a x,{a},x]&/@tekstremjiji;
νji=1/((2 strmine)/fps);

Table[
	tekstremji=tekstremjiji[[i]];
	ltekstremji=Length@tekstremji;
	Plot[
		strmine[[i]] x, 
		{x, 0, ltekstremji+1}, 
		Epilog -> Map[Point, 
			Transpose@{Range@ltekstremji,tekstremji}
		]
	],
{i,Length@ekstremjiji}]

ampjiji=Abs[Differences/@zekstremjiji][[;;,1;;;;2]];(*2*amplitude*)
ABji=({a,b}/.FindFit[#,a (b^x),{a,b},x])&/@ampjiji;  (*fitani parametri izraza a (b^x)*)
βji=-νji Log[ABji[[;;,2]]];


Table[
	ampji=ampjiji[[i]];
	lampji=Length@ampji;
	Plot[
		ABji[[i,1]]*((ABji[[i,2]])^x), 
		{x, 0, lampji+1}, 
		Epilog -> Map[Point, 
			Transpose@{Range@lampji,ampji}
		]
	],
{i,Length@ampjiji}]

ABβνji=Transpose@Join[
	Transpose@ABji,
	{βji},
	{νji}
];
Export[MapaH5<>"ABβνjiSIM.h5",ABβνji];